LOC=''

LDID.CT = DCOUNT(LDIDS,VM)
FOR LDID.CTR = 1 TO LD.CT
PN = LD(1)
MATREAD PRD FROM PRDFILE,PN ELSE MAT PRD = ''
LOC = FIELD(TRANS('PROD.DYNAM',PN:'*1',8,'X'),'~',2)
NEXT LDID







UD.DVR.DOC.PRINT = > UD.LABEL.DOC.PRINT = > UD.PRINT.DOC.ONE


